home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / acodet1a / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-06-25  |  1.4 KB  |  33 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. 'API Types
  5. Public Type RECT
  6.     Left As Long
  7.     Top As Long
  8.     Right As Long
  9.     Bottom As Long
  10. End Type
  11.  
  12. #If UNICODE Then
  13.     Public Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal uMgs As Long, ByVal wParam As Long, lParam As Any) As Long
  14. #Else
  15.     Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal uMgs As Long, ByVal wParam As Long, lParam As Any) As Long
  16. #End If
  17. Public Declare Function ReleaseCapture Lib "user32" () As Long
  18. Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Any) As Long
  19. 'the standard version of this API function uses a Point structure, but we cant pass
  20. 'that using VB, so it has been modified to accept Long Integers
  21. 'Public Declare Function PtInRect Lib "user32" (lpRect As RECT, pt As POINTAPI) As Long
  22. Public Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal lLeft As Long, ByVal lTop As Long) As Long
  23. Public Declare Function SetParent Lib "user32" (ByVal HwndChild As Long, ByVal hWndNewParent As Long) As Long
  24. Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  25. Public Declare Function SetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
  26.  
  27.  
  28. Public Const SWW_HPARENT = -8
  29. Public Const HTRIGHT = 11
  30. Public Const WM_NCLBUTTONDOWN = &HA1
  31.  
  32.  
  33.